home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / ghostscript / 5.10 / data / ps2ascii.ps < prev    next >
Text File  |  1996-07-09  |  40KB  |  1,311 lines
  1. %    Copyright (C) 1991, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  19. % Instead, ASCII information is written to stdout.  The idea is similar to
  20. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  21.  
  22. % If SIMPLE is defined, just the text is written, with a guess at line
  23. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  24. % to stdout as follows:
  25. %
  26. %    F <height> <width> (<fontname>)
  27. %        Indicate the font height and the width of a space.
  28. %
  29. %    P
  30. %        Indicate the end of the page.
  31. % 
  32. %    S <x> <y> (<string>) <width>
  33. %        Display a string.
  34. %
  35. % <width> and <height> are integer dimensions in units of 1/720".
  36. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  37. %   at the lower left.
  38. % <string> and <fontname> are strings represented with the standard
  39. %   PostScript escape conventions.
  40.  
  41. % If COMPLEX is defined, the following additional types of lines are
  42. % written to stdout.
  43. %
  44. %    C <r> <g> <b>
  45. %        Indicate the current color.
  46. %
  47. %    I <x> <y> <width> <height>
  48. %        Note the presence of an image.
  49. %
  50. %    R <x> <y> <width> <height>
  51. %        Fill a rectangle.
  52. %
  53. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  54. %
  55. % Note that future versions of this program (in COMPLEX mode) may add
  56. %   other output elements, so programs parsing the output should be
  57. %   prepared to ignore elements that they do not recognize.
  58.  
  59. % Note that this code will only work in all cases if systemdict is writable
  60. % and if `binding' the definitions of operators defined as procedures
  61. % is deferred.  For this reason, it is normally invoked with
  62. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  63.  
  64. % Thanks to:
  65. %    J Greely <jgreely@cis.ohio-state.edu> for improvements to this code;
  66. %    Jerry Whelan <jerryw@abode.ccd.bnl.gov> for motivating other improvements;
  67. %    David M. Jones <dmjones@theory.lcs.mit.edu> for improvements noted below.
  68.  
  69. %%* Modifications to ps2ascii.ps by David M. Jones
  70. %%* (dmjones@theory.lcs.mit.edu), June 25-July 8, 1996
  71.  
  72. %%* Modifications:
  73. %%* 
  74. %%* (a) added code to give better support for dvips files by providing
  75. %%*     FontBBox's, FontName's and Encoding vectors for downloaded
  76. %%*     bitmap fonts.  This is done by using dvips's start-hook to
  77. %%*     overwrite the df-tail and D procedures that dvips uses to
  78. %%*     define its Type 3 bitmap fonts.  Thus, this change should
  79. %%*     provide better support for dvips-generated PS files without
  80. %%*     affecting the handling of other documents.
  81. %%* 
  82. %%* (b) Fixed two bugs that could potentially affect any PS file, not
  83. %%*     just those created by dvips: (1) added missing "get" operator
  84. %%*     in .show.write and (2) fixed bug that caused a hyphen at the
  85. %%*     end of a line to be replaced by a space rather than begin
  86. %%*     deleted.  Note that the first bug was a source of stack
  87. %%*     leakage, causing ps2ascii to run out of operand stack space
  88. %%*     occasionally.
  89. %%* 
  90. %%*     Search for "%%* BF" to find these modifications.
  91. %%*     
  92. %%* (c) Improved the heuristic for determining whether a line break
  93. %%*     has occured and whether a line break represents a paragraph
  94. %%*     break.  Previously, any change in the vertical position caused
  95. %%*     a line break; now a line break is only registered if the
  96. %%*     change is larger than the height of the current font.  This
  97. %%*     means that superscripts, subscripts, and such things as
  98. %%*     shifted accents generated by TeX won't cause line breaks.
  99. %%*     Paragraph-recognition is now done by comparing the indentation
  100. %%*     of the new line to the indentation of the previous line and by
  101. %%*     comparing the vertical distance between the new line and the
  102. %%*     previous line to the vertical distance between the previous
  103. %%*     line and its predecessor.
  104. %%*     
  105. %%* (d) Added a hook for renaming the files where stdout and stderr
  106. %%*     go.
  107. %%* 
  108. %%* In general, my additions or changes to the code are described in
  109. %%* comments beginning with "%%*".  However, there are numerous other
  110. %%* places where I have either re-formatted code or added comments to
  111. %%* the code while I was trying to understand it.  These are usually
  112. %%* not specially marked.
  113. %%* 
  114.  
  115. /QUIET true def
  116. systemdict wcheck { systemdict } { userdict } ifelse begin
  117. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  118. /COMPLEX dup where { pop true } { false } ifelse def
  119. /SIMPLE dup where { pop true } { false } ifelse def
  120. /setglobal where
  121.  { pop currentglobal /setglobal load true setglobal }
  122.  { { } }
  123. ifelse
  124.  
  125. % Define a way to store and retrieve integers that survives save/restore.
  126. /.i.string0 (0               ) def
  127. /.i.string .i.string0 length string def
  128. /.iget { cvi } bind def
  129. /.iput { exch //.i.string exch copy cvs pop } bind def
  130. /.inew { //.i.string0 dup length string copy } bind def
  131.  
  132. % We only want to redefine operators if they are defined already.
  133.  
  134. /codef { 1 index where { pop def } { pop pop } ifelse } def
  135.  
  136. % Redefine the end-of-page operators.
  137.  
  138. /erasepage { } codef
  139. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } codef
  140. /showpage { copypage erasepage initgraphics } codef
  141.  
  142. % Redefine the fill operators to detect rectangles.
  143.  
  144. /.orderrect    % <llx> <lly> <urx> <ury> .orderrect <llx> <lly> <w> <h>
  145.  {    % Ensure llx <= urx, lly <= ury.
  146.    1 index 4 index lt { 4 2 roll } if
  147.    dup 3 index lt { 3 1 roll exch } if
  148.    exch 3 index sub exch 2 index sub
  149.  } odef
  150. /.fillcomplex
  151.  {    % Do a first pass to see if the path is all rectangles in
  152.     % the output coordinate system.  We don't worry about overlapping
  153.     % rectangles that might be partially not filled.
  154.     % Stack: mark llx0 lly0 urx0 ury0 ... true mark x0 y0 ...
  155.    mark true mark
  156.     % Add a final moveto so we pick up any trailing unclosed subpath.
  157.    0 0 itransform moveto
  158.     { .coord counttomark 2 gt
  159.        { counttomark 4 gt { .fillcheckrect } { 4 2 roll pop pop }  ifelse }
  160.       if
  161.     }
  162.     { .coord }
  163.     { cleartomark not mark exit }
  164.     { counttomark -2 roll 2 copy counttomark 2 roll .fillcheckrect }
  165.    pathforall cleartomark
  166.     { .showcolor counttomark 4 idiv
  167.        { counttomark -4 roll .orderrect
  168.      (R ) //print .show==4
  169.        }
  170.       repeat pop
  171.     }
  172.     { cleartomark
  173.     }
  174.    ifelse
  175.  } odef
  176. /.fillcheckrect
  177.  {    % Check whether the current subpath is a rectangle.
  178.     % If it is, add it to the list of rectangles being accumulated;
  179.     % if not exit the .fillcomplex loop.
  180.     % The subpath has not been closed.
  181.     % Stack: as in .fillcomplex, + newx newy
  182.    counttomark 10 eq { 9 index 9 index 4 2 roll } if
  183.    counttomark 12 ne { cleartomark not mark exit } if
  184.    12 2 roll
  185.     % Check for the two possible forms of rectangles:
  186.     %    x0 y0  x0 y1  x1 y1  x1 y0  x0 y0
  187.     %    x0 y0  x1 y0  x1 y1  x0 y1  x0 y0
  188.    9 index 2 index eq 9 index 2 index eq and
  189.    10 index 9 index eq
  190.     {    % Check for first form.
  191.       7 index 6 index eq and 6 index 5 index eq and 3 index 2 index eq and
  192.     }
  193.     {    % Check for second form.
  194.       9 index 8 index eq and
  195.       8 index 7 index eq and 5 index 4 index eq and 4 index 3 index eq and
  196.     }
  197.    ifelse not { cleartomark not mark exit } if
  198.     % We have a rectangle.
  199.    pop pop pop pop 4 2 roll pop pop 8 4 roll
  200.  } odef
  201. /eofill { COMPLEX { .fillcomplex } if newpath } codef
  202. /fill { COMPLEX { .fillcomplex } if newpath } codef
  203. /rectfill { gsave newpath .rectappend fill grestore } codef
  204. /ueofill { gsave newpath uappend eofill grestore } codef
  205. /ufill { gsave newpath uappend fill grestore } codef
  206.  
  207. % Redefine the stroke operators to detect rectangles.
  208.  
  209. /rectstroke
  210.  { gsave newpath
  211.    dup type dup /arraytype eq exch /packedarraytype eq or
  212.     { dup length 6 eq { exch .rectappend concat } { .rectappend } ifelse }
  213.     { .rectappend }
  214.    ifelse stroke grestore
  215.  } codef
  216. /.strokeline    % <fromx> <fromy> <tox> <toy> .strokeline <tox> <toy>
  217.         % Note: fromx and fromy are in output coordinates;
  218.         % tox and toy are in user coordinates.
  219.  { .coord 2 copy 6 2 roll .orderrect
  220.     % Add in the line width.  Assume square or round caps.
  221.    currentlinewidth 2 div dup .dcoord add abs 1 max 5 1 roll
  222.    4 index add 4 1 roll 4 index add 4 1 roll
  223.    4 index sub 4 1 roll 5 -1 roll sub 4 1 roll
  224.    (R ) //print .show==4
  225.  } odef
  226. /.strokecomplex
  227.  {    % Do a first pass to see if the path is all horizontal and vertical
  228.     % lines in the output coordinate system.
  229.     % Stack: true mark origx origy curx cury
  230.    true mark null null null null
  231.     { .coord 6 2 roll pop pop pop pop 2 copy }
  232.     { .coord 1 index 4 index eq 1 index 4 index eq or
  233.        { 4 2 roll pop pop }
  234.        { cleartomark not mark exit }
  235.       ifelse
  236.     }
  237.     { cleartomark not mark exit }
  238.     { counttomark -2 roll 2 copy counttomark 2 roll
  239.       1 index 4 index eq 1 index 4 index eq or
  240.        { pop pop 2 copy }
  241.        { cleartomark not mark exit }
  242.       ifelse
  243.     }
  244.    pathforall cleartomark
  245.    0 currentlinewidth .dcoord 0 eq exch 0 eq or and
  246.     % Do the second pass to write out the rectangles.
  247.     % Stack: origx origy curx cury
  248.     { .showcolor null null null null
  249.        { 6 2 roll pop pop pop pop 2 copy .coord }
  250.        { .strokeline }
  251.        { }
  252.        { 3 index 3 index .strokeline }
  253.       pathforall pop pop pop pop
  254.     }
  255.    if
  256.  } odef
  257. /stroke { COMPLEX { .strokecomplex } if newpath } codef
  258. /ustroke
  259.  { gsave newpath
  260.    dup length 6 eq { exch uappend concat } { uappend } ifelse
  261.    stroke grestore
  262.  } codef
  263.  
  264. % The image operators must read the input and note the dimensions.
  265. % Eventually we should redefine these to detect 1-bit-high all-black images,
  266. % since this is how dvips does underlining (!).
  267.  
  268. /.noteimagerect        % <width> <height> <matrix> .noteimagerect -
  269.  { COMPLEX
  270.     { gsave setmatrix itransform 0 0 itransform
  271.       grestore .coord 4 2 roll .coord .orderrect
  272.       (I ) //print .show==4
  273.     }
  274.     { pop pop pop
  275.     }
  276.    ifelse
  277.  } odef
  278. /colorimage where
  279.  { pop /colorimage
  280.     { 1 index
  281.        { dup 6 add index 1 index 6 add index 2 index 5 add index }
  282.        { 6 index 6 index 5 index }
  283.       ifelse .noteimagerect gsave nulldevice //colorimage grestore
  284.     } codef
  285.  } if
  286. /.noteimage        % Arguments as for image[mask]
  287.  { dup type /dicttype eq
  288.     { dup /Width get 1 index /Height get 2 index /ImageMatrix get }
  289.     { 4 index 4 index 3 index }
  290.    ifelse .noteimagerect
  291.  } odef
  292. /image { .noteimage gsave nulldevice //image grestore } codef
  293. /imagemask { .noteimage gsave nulldevice //imagemask grestore } codef
  294.  
  295. % Output the current color if necessary.
  296. /.color.r .inew def
  297.   .color.r -1 .iput        % make sure we write the color at the beginning
  298. /.color.g .inew def
  299. /.color.b .inew def
  300. /.showcolor
  301.  { COMPLEX
  302.     { currentrgbcolor
  303.       1000 mul round cvi
  304.       3 1 roll 1000 mul round cvi
  305.       exch 1000 mul round cvi
  306.         % Stack: b g r
  307.       dup //.color.r .iget eq
  308.       2 index //.color.g .iget eq and
  309.       3 index //.color.b .iget eq and
  310.        { pop pop pop
  311.        }
  312.        { (C ) //print
  313.      dup //.color.r exch .iput .show==only
  314.          ( ) //print dup //.color.g exch .iput .show==only
  315.          ( ) //print dup //.color.b exch .iput .show==only
  316.      (\n) //print
  317.        }
  318.       ifelse
  319.     }
  320.    if
  321.  } bind def
  322.  
  323. % Redefine `show'.
  324.  
  325. % Set things up so our output will be in tenths of a point, with origin at
  326. % lower left.  This isolates us from the peculiarities of individual devices.
  327.  
  328. /.show.ident.matrix matrix def
  329. /.show.ident
  330. % { //.show.ident.matrix defaultmatrix
  331. %               % Assume the original transformation is well-behaved.
  332. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  333. %   0.1 dup 3 -1 roll scale
  334.  { gsave initmatrix
  335.                 % Assume the original transformation is well-behaved.
  336.    0.1 0 dtransform abs exch abs .max /.show.scale exch def
  337.    0.1 dup scale .show.ident.matrix currentmatrix
  338.    grestore
  339.  } bind def
  340.  
  341. /.coord
  342.  { transform .show.ident itransform
  343.    exch round cvi exch round cvi
  344.  } odef
  345.  
  346. /.dcoord
  347.  {              % Transforming distances is trickier, because
  348.                 % the coordinate system might be rotated.
  349.    .show.ident pop
  350.    exch 0 dtransform
  351.     dup mul exch dup mul add sqrt
  352.      .show.scale div round cvi
  353.    exch 0 exch dtransform
  354.     dup mul exch dup mul add sqrt
  355.      .show.scale div round cvi
  356.  } odef
  357.  
  358. % Remember the current X, Y, and height.
  359. /.show.x .inew def
  360. /.show.y .inew def
  361. /.show.height .inew def
  362.  
  363. % Remember the last character of the previous string; if it was a
  364. % hyphen preceded by a letter, we didn't output the hyphen.
  365.  
  366. /.show.last (\000) def
  367.  
  368. % Remember the current font.
  369. /.font.name 130 string def
  370. /.font.name.length .inew def
  371. /.font.height .inew def
  372. /.font.width .inew def
  373.  
  374. %%* Also remember indentation of current line and previous vertical
  375. %%* skip
  376.  
  377. /.show.indent .inew def
  378. /.show.dy     .inew def
  379.  
  380. % We have to redirect stdout somehow....
  381.  
  382. /.show.stdout { (%stdout) (w) file } bind def
  383.  
  384. % Make sure writing will work even if a program uses =string.
  385. /.show.string =string length string def
  386. /.show.=string =string length string def
  387. /.show==only
  388.  { //=string //.show.=string copy pop
  389.    dup type /stringtype eq
  390.     { dup length //.show.string length le
  391.        { dup rcheck { //.show.string copy } if
  392.        } if
  393.     } if
  394.    .show.stdout exch write==only
  395.    //.show.=string //=string copy pop
  396.  } odef
  397. /.show==4
  398.  { 4 -1 roll .show==only ( ) //print
  399.    3 -1 roll .show==only ( ) //print
  400.    exch .show==only ( ) //print
  401.    .show==only (\n) //print
  402.  } odef
  403.  
  404. /.showwidth    % Same as stringwidth, but disable COMPLEX so that
  405.         % we don't try to detect rectangles during BuildChar.
  406.  { COMPLEX
  407.     { /COMPLEX false def stringwidth /COMPLEX true def }
  408.     { stringwidth }
  409.    ifelse
  410.  } odef
  411.  
  412. /.showfont    % <string> .showfont <string>
  413.  { gsave
  414.     % Try getting the height and width of the font from the FontBBox.
  415.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  416.      aload pop      % llx lly urx ury
  417.      exch 4 -1 roll % lly ury urx llx
  418.      sub            % lly ury dx
  419.      3 1 roll exch  % dx ury lly
  420.      sub            % dx dy
  421.      2 copy .max 0 ne
  422.       { currentfont /FontMatrix get dtransform
  423.       }
  424.       {    pop pop
  425.     % Fonts produced by dvips, among other applications, have
  426.     % BuildChar procedures that bomb out when given unexpected
  427.     % characters, and there is no way to determine whether a given
  428.     % character will do this.  So for Type 1 fonts, we measure a
  429.     % typical character ('X'); for others, we punt.
  430.     currentfont /FontType get 1 eq
  431.      { (X) .showwidth pop dup 1.3 mul
  432.      }
  433.      {    % No safe way to get the character size.  Punt.
  434.        0 0
  435.      }
  436.     ifelse
  437.       }
  438.      ifelse .dcoord exch
  439.      currentfont /FontName .knownget not { () } if
  440.      dup type /stringtype ne { //.show.string cvs } if
  441.    grestore
  442.     % Stack: height width fontname
  443.    SIMPLE
  444.     { pop pop //.show.height exch .iput }
  445.     { 2 index //.font.height .iget eq
  446.       2 index //.font.width .iget eq and
  447.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  448.        { pop pop pop
  449.        }
  450.        { (F ) //print
  451.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  452.          exch dup //.font.width exch .iput .show==only ( ) //print
  453.      dup length //.font.name.length exch .iput
  454.          //.font.name cvs .show==only (\n) //print
  455.        }
  456.       ifelse
  457.     }
  458.    ifelse
  459.  } odef
  460.  
  461. % Define the letters -- characters which, if they occur followed by a hyphen
  462. % at the end of a line, cause the hyphen and line break to be ignored.
  463. /.letter.chars 100 dict def
  464. mark
  465.   65 1 90 { dup 32 add } for
  466.     counttomark
  467.         { StandardEncoding exch get .letter.chars exch dup put }
  468.     repeat
  469. pop
  470.  
  471. % Define a set of characters which, if they occur at the start of a line,
  472. % are taken as indicating a paragraph break.
  473. /.break.chars 50 dict def
  474. mark
  475.     /bullet /dagger /daggerdbl /periodcentered /section
  476.     counttomark
  477.         { .break.chars exch dup put }
  478.     repeat
  479. pop
  480.  
  481. % Define character translation to ASCII.
  482. % We have to do this for the entire character set.
  483.  
  484. /.char.map 500 dict def
  485.  
  486. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  487.  
  488. % Encode the printable ASCII characters.
  489.  
  490. mark 32 1 126
  491.  { 1 string dup 0 4 -1 roll put
  492.    dup 0 get StandardEncoding exch get exch
  493.  }
  494. for .chars.def
  495.  
  496.         % Encode accents.
  497. mark
  498.     /acute      (')
  499.     /caron      (^)
  500.     /cedilla    (,)
  501.     /circumflex (^)
  502.     /dieresis   (")
  503.     /grave      (`)
  504.     /ring       (*)
  505.     /tilde      (~)
  506. .chars.def
  507.  
  508.         % Encode the ISO accented characters.
  509. mark 192 1 255
  510.  { ISOLatin1Encoding exch get =string cvs
  511.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  512.    .char.map 2 index known .char.map 2 index known and
  513.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  514.       .char.map 3 1 roll put
  515.     }
  516.     { pop pop pop
  517.     }
  518.    ifelse
  519.  }
  520. for .chars.def
  521.  
  522. % Encode the remaining standard and ISO alphabetic characters.
  523.  
  524. mark
  525.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  526.   /ae (ae) /eth (dh)
  527.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  528.   /germandbls (ss) /oe (oe) /thorn (th)
  529. .chars.def
  530.  
  531. % Encode the other standard and ISO characters.
  532.  
  533. mark
  534.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  535.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  536.   /dotlessi (i)
  537.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  538.   /florin (f) /fraction (/)
  539.   /guillemotleft (<<) /guillemotright (>>)
  540.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  541.   /macron (_) /minus (-) /mu (u) /multiply (*)
  542.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  543.   /ordfeminine (-a) /ordmasculine (-o)
  544.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  545.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  546.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  547.   /section ($) /sterling (#)
  548.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  549.   /yen (Y)
  550. .chars.def
  551.  
  552. % Encode a few common Symbol characters.
  553.  
  554. mark
  555.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  556.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  557.   /trademarksans ((TM)) /trademarkserif ((TM))
  558. .chars.def
  559.  
  560. %%* Add a few characters from StandardEncoding and ISOLatin1Encoding
  561. %%* that were missing.
  562.  
  563. mark
  564.     /cent           (c)
  565.     /guilsinglleft  (<)
  566.     /guilsinglright (>)
  567.     /breve          (*)
  568.     /Lslash         (L/)
  569.     /lslash         (l/)
  570. .chars.def
  571.  
  572. %%* Define the OT1Encoding and T1Encoding vectors for use with dvips
  573. %%* files.  Unfortunately, there's no way of telling what font is
  574. %%* really being used within a dvips document, so we can't provide an
  575. %%* appropriate encoding for each individual font.  Instead, we'll
  576. %%* just provide support for the two most popular text encodings, the
  577. %%* OT1 and T1 encodings, and just accept the fact that any font not
  578. %%* using one of those encodings will be rendered as gibberish.
  579. %%* 
  580. %%* OT1 is Knuth's 7-bit encoding for the CMR text fonts, while T1
  581. %%* (aka the Cork encoding) is the 8-bit encoding used by the DC
  582. %%* fonts, a preliminary version of the proposed Extended Computer
  583. %%* Modern fonts.  Unfortunately, T1 is not a strict extension of OT1;
  584. %%* they differ in positions 8#000 through 8#040, 8#074, 8#076, 8#134,
  585. %%* 8#137, 8#173, 8#174, 8#175 and 8#177, so we can't use the same
  586. %%* vector for both.
  587. %%* 
  588. %%* Of course, we also can't reliably tell the difference between an
  589. %%* OT1-encoded font and a T1-encoded font based on the information in
  590. %%* a dvips-created PostScript file.  As a best-guess solution, we'll
  591. %%* use the T1 encoding if the font contains any characters in
  592. %%* positions above 8#177 and the OT1 encoding if it doesn't.
  593.  
  594. /T1Encoding  256 array def
  595.  
  596. /OT1Encoding 256 array def
  597.  
  598. %%* T1Encoding shares a lot with StandardEncoding, so let's start
  599. %%* there.
  600.  
  601. StandardEncoding T1Encoding copy pop
  602.  
  603. /OT1.encode {
  604.     counttomark
  605.     2 idiv
  606.       { OT1Encoding 3 1 roll put }
  607.     repeat
  608.     cleartomark
  609. } def
  610.  
  611. /T1.encode {
  612.     counttomark
  613.     2 idiv
  614.       { T1Encoding 3 1 roll put }
  615.     repeat
  616.     cleartomark
  617. } def
  618.  
  619. mark
  620.     8#000 /grave
  621.     8#001 /acute
  622.     8#002 /circumflex
  623.     8#003 /tilde
  624.     8#004 /dieresis
  625.     8#005 /hungarumlaut
  626.     8#006 /ring
  627.     8#007 /caron
  628.  
  629.     8#010 /breve
  630.     8#011 /macron
  631.     8#012 /dotaccent
  632.     8#013 /cedilla
  633.     8#014 /ogonek
  634.     8#015 /quotesinglbase
  635.     8#016 /guilsinglleft
  636.     8#017 /guilsinglright
  637.  
  638.     8#020 /quotedblleft
  639.     8#021 /quotedblright
  640.     8#022 /quotedblbase
  641.     8#023 /guillemotleft
  642.     8#024 /guillemotright
  643.     8#025 /endash
  644.     8#026 /emdash
  645.     8#027 /cwm
  646.  
  647.     8#030 /perthousandzero
  648.     8#031 /dotlessi
  649.     8#032 /dotlessj
  650.     8#033 /ff
  651.     8#034 /fi
  652.     8#035 /fl
  653.     8#036 /ffi
  654.     8#037 /ffl
  655.  
  656. %%  8#040 through 8#176 follow StandardEncoding
  657.  
  658.     8#177 /hyphen
  659. T1.encode
  660.  
  661. mark
  662.     8#200 /Abreve
  663.     8#201 /Aogonek
  664.     8#202 /Cacute
  665.     8#203 /Ccaron
  666.     8#204 /Dcaron
  667.     8#205 /Ecaron
  668.     8#206 /Eogonek
  669.     8#207 /Gbreve
  670.     8#210 /Lacute
  671.     8#211 /Lcaron
  672.     8#212 /Lslash
  673.     8#213 /Nacute
  674.     8#214 /Ncaron
  675.     8#215 /Eng
  676.     8#216 /Ohungarumlaut
  677.     8#217 /Racute
  678.     8#220 /Rcaron
  679.     8#221 /Sacute
  680.     8#222 /Scaron
  681.     8#223 /Scedilla
  682.     8#224 /Tcaron
  683.     8#225 /Tcedilla
  684.     8#226 /Uhungarumlaut
  685.     8#227 /Uring
  686.     8#230 /Ydieresis
  687.     8#231 /Zacute
  688.     8#232 /Zcaron
  689.     8#233 /Zdot
  690.     8#234 /IJ
  691.     8#235 /Idot
  692.     8#236 /dbar
  693.     8#237 /section
  694.     8#240 /abreve
  695.     8#241 /aogonek
  696.     8#242 /cacute
  697.     8#243 /ccaron
  698.     8#244 /dcaron
  699.     8#245 /ecaron
  700.     8#246 /eogonek
  701.     8#247 /gbreve
  702.     8#250 /lacute
  703.     8#251 /lcaron
  704.     8#252 /lslash
  705.     8#253 /nacute
  706.     8#254 /ncaron
  707.     8#255 /eng
  708.     8#256 /ohungarumlaut
  709.     8#257 /racute
  710.     8#260 /rcaron
  711.     8#261 /sacute
  712.     8#262 /scaron
  713.     8#263 /scedilla
  714.     8#264 /tcaron
  715.     8#265 /tcedilla
  716.     8#266 /uhungarumlaut
  717.     8#267 /uring
  718.     8#270 /ydieresis
  719.     8#271 /zacute
  720.     8#272 /zcaron
  721.     8#273 /zdot
  722.     8#274 /ij
  723.     8#275 /exclamdown
  724.     8#276 /questiondown
  725.     8#277 /sterling
  726.  
  727.     8#300 /Agrave
  728.     8#301 /Aacute
  729.     8#302 /Acircumflex
  730.     8#303 /Atilde
  731.     8#304 /Adieresis
  732.     8#305 /Aring
  733.     8#306 /AE
  734.     8#307 /Ccedilla
  735.     8#310 /Egrave
  736.     8#311 /Eacute
  737.     8#312 /Ecircumflex
  738.     8#313 /Edieresis
  739.     8#314 /Igrave
  740.     8#315 /Iacute
  741.     8#316 /Icircumflex
  742.     8#317 /Idieresis
  743.     8#320 /Eth
  744.     8#321 /Ntilde
  745.     8#322 /Ograve
  746.     8#323 /Oacute
  747.     8#324 /Ocircumflex
  748.     8#325 /Otilde
  749.     8#326 /Odieresis
  750.     8#327 /OE
  751.     8#330 /Oslash
  752.     8#331 /Ugrave
  753.     8#332 /Uacute
  754.     8#333 /Ucircumflex
  755.     8#334 /Udieresis
  756.     8#335 /Yacute
  757.     8#336 /Thorn
  758.     8#337 /Germandbls 
  759.  
  760.     8#340 /agrave
  761.     8#341 /aacute
  762.     8#342 /acircumflex
  763.     8#343 /atilde
  764.     8#344 /adieresis
  765.     8#345 /aring
  766.     8#346 /ae
  767.     8#347 /ccedilla
  768.     8#350 /egrave
  769.     8#351 /eacute
  770.     8#352 /ecircumflex
  771.     8#353 /edieresis
  772.     8#354 /igrave
  773.     8#355 /iacute
  774.     8#356 /icircumflex
  775.     8#357 /idieresis
  776.     8#360 /eth
  777.     8#361 /ntilde
  778.     8#362 /ograve
  779.     8#363 /oacute
  780.     8#364 /ocircumflex
  781.     8#365 /otilde
  782.     8#366 /odieresis
  783.     8#367 /oe
  784.     8#370 /oslash
  785.     8#371 /ugrave
  786.     8#372 /uacute
  787.     8#373 /ucircumflex
  788.     8#374 /udieresis
  789.     8#375 /yacute
  790.     8#376 /thorn
  791.     8#377 /germandbls
  792.  
  793. T1.encode
  794.  
  795. %%* Now copy OT1Encoding into T1Encoding and make a few changes.
  796.  
  797. T1Encoding OT1Encoding copy pop
  798.  
  799. mark
  800.     8#000 /Gamma
  801.     8#001 /Delta
  802.     8#002 /Theta
  803.     8#003 /Lambda
  804.     8#004 /Xi
  805.     8#005 /Pi
  806.     8#006 /Sigma
  807.     8#007 /Upsilon
  808.  
  809.     8#010 /Phi
  810.     8#011 /Psi
  811.     8#012 /Omega
  812.     8#013 /ff
  813.     8#014 /fi
  814.     8#015 /fl
  815.     8#016 /ffi
  816.     8#017 /ffl
  817.  
  818.     8#020 /dotlessi
  819.     8#021 /dotlessj
  820.     8#022 /grave
  821.     8#023 /acute
  822.     8#024 /caron
  823.     8#025 /breve
  824.     8#026 /macron
  825.     8#027 /ring
  826.  
  827.     8#030 /cedilla
  828.     8#031 /germandbls
  829.     8#032 /ae
  830.     8#033 /oe
  831.     8#034 /oslash
  832.     8#035 /AE
  833.     8#036 /OE
  834.     8#037 /Oslash
  835.  
  836.     8#040 /polishslash
  837.  
  838.     8#042 /quotedblright
  839.  
  840.     8#074 /exclamdown
  841.     8#076 /questiondown
  842.  
  843.     8#134 /quotedblleft
  844.     8#137 /dotaccent
  845.  
  846.     8#173 /endash
  847.     8#174 /emdash
  848.     8#175 /hungarumlaut
  849.     8#177 /dieresis
  850. OT1.encode
  851.  
  852. %%* And add a few characters from the OT1Encoding
  853.  
  854. mark
  855.     /Gamma              (\\Gamma )
  856.     /Delta              (\\Delta )
  857.     /Theta              (\\Theta )
  858.     /Lambda             (\\Lambda )
  859.     /Xi                 (\\Xi )
  860.     /Pi                 (\\Pi )
  861.     /Sigma              (\\Sigma )
  862.     /Upsilon            (\\Upsilon )
  863.  
  864.     /Phi                (\\Phi )
  865.     /Psi                (\\Psi )
  866.     /Omega              (\\Omega )
  867.  
  868.     /dotlessj           (j)
  869.     /ff                 (ff)
  870.  
  871.     /cwm                ()
  872.  
  873.     /perthousandzero    (0)
  874.  
  875.     /polishslash        ()
  876.  
  877.     /Abreve             (A*)
  878.     /Aogonek            (A,)
  879.     /Cacute             (C')
  880.     /Ccaron             (C^)
  881.     /Dcaron             (D^)
  882.     /Ecaron             (E^)
  883.     /Eogonek            (E,)
  884.     /Gbreve             (G*)
  885.     /Lacute             (L')
  886.     /Lcaron             (L^)
  887.     /Nacute             (N')
  888.     /Ncaron             (N^)
  889.     /Eng                (NG)
  890.     /Ohungarumlaut      (O"")
  891.     /Racute             (R')
  892.     /Rcaron             (R^)
  893.     /Sacute             (S')
  894.     /Scaron             (S^)
  895.     /Scedilla           (S,)
  896.     /Tcaron             (T^)
  897.     /Tcedilla           (T,)
  898.     /Uhungarumlaut      (U"")
  899.     /Uring              (U*)
  900.     /Ydieresis          (Y")
  901.     /Zacute             (Z')
  902.     /Zcaron             (Z^)
  903.     /Zdot               (Z.)
  904.     /IJ                 (IJ)
  905.     /Idot               (I.)
  906.     /dbar               (d-)
  907.     /abreve             (a*)
  908.     /aogonek            (a,)
  909.     /cacute             (c')
  910.     /ccaron             (c^)
  911.     /dcaron             (d^)
  912.     /ecaron             (e^)
  913.     /eogonek            (e,)
  914.     /gbreve             (g*)
  915.     /lacute             (l')
  916.     /lcaron             (l^)
  917.     /nacute             (n')
  918.     /ncaron             (n^)
  919.     /eng                (ng)
  920.     /ohungarumlaut      (o"")
  921.     /racute             (r')
  922.     /rcaron             (r^)
  923.     /sacute             (s')
  924.     /scaron             (s^)
  925.     /scedilla           (s,)
  926.     /tcaron             (t^)
  927.     /tcedilla           (t,)
  928.     /uhungarumlaut      (u"")
  929.     /uring              (u*)
  930.     /zacute             (z')
  931.     /zcaron             (z^)
  932.     /zdot               (z.)
  933.     /ij                 (ij)
  934.     /Germandbls         (SS)
  935. .chars.def
  936.  
  937. %%* We extend the df-tail command to stick in an Encoding vector (see
  938. %%* above for a discussion of the T1 and OT1 encodings), put in a
  939. %%* FontName (which will just be dvips's name for the font, i.e., Fa,
  940. %%* Fb, etc.) and give each font a separate FontBBox instead of
  941. %%* letting them all share a single one.
  942.  
  943. /dvips.df-tail      % id numcc maxcc df-tail
  944.   {
  945.     /nn 9 dict N
  946.     nn begin
  947.         %%  
  948.         %%  Choose an encoding based on the highest position occupied.
  949.         %%  
  950.         dup 127 gt { T1Encoding } { OT1Encoding } ifelse
  951.         /Encoding X
  952.         /FontType 3 N
  953.         %%
  954.         %%  It's ok for all the fonts to share a FontMatrix, but they
  955.         %%  need to have separate FontBBoxes
  956.         %%
  957.     /FontMatrix fntrx N
  958.     /FontBBox [0 0 0 0] N
  959.         string /base X
  960.         array /BitMaps X
  961.         %%
  962.         %%  And let's throw in a FontName for good measure
  963.         %%
  964.         dup (    ) cvs /FontName X
  965.         /BuildChar {CharBuilder} N
  966.     end
  967.     dup { /foo setfont }
  968.        2 array copy cvx N
  969.     load
  970.        0 nn put
  971.     /ctr 0 N
  972.     [
  973. } def
  974.  
  975. %%* This is functionally equivalent to dvips's /D procedure, but it
  976. %%* also calculates the Font Bounding Box while defining the
  977. %%* characters.
  978.  
  979. /dvips.D   % char-data ch D - : define character bitmap in current font
  980. {
  981.     /cc X                           % char-data
  982.     dup type /stringtype ne {]} if  % char-data
  983.  
  984.     /ch-data X
  985.     nn /base get cc ctr put     % (adds ctr to cc'th position of BASE)
  986.     nn /BitMaps get
  987.     ctr
  988.     ch-data                     % BitMaps ctr char-data
  989.     sf 1 ne {
  990.        dup dup length 1 sub dup 2 index S get sf div put
  991.     } if
  992.     put                         % puts char-data into BitMaps at index ctr
  993.     /ctr ctr 1 add N
  994. %%  
  995. %%  Make sure the Font Bounding Box encloses the Bounding Box of the
  996. %%  current character
  997. %%
  998.     nn /FontBBox get        % BB
  999.  
  1000.     dup                     % calculate new llx
  1001.     dup 0 get
  1002.     ch-xoff
  1003.     min
  1004.     0 exch put
  1005.  
  1006.     dup                     % calculate new lly
  1007.     dup 1 get
  1008.     ch-yoff ch-height sub
  1009.     min
  1010.     1 exch put
  1011.  
  1012.     dup                     % calculate new urx
  1013.     dup 2 get
  1014.     ch-dx ch-width add
  1015.     max
  1016.     2 exch put
  1017.  
  1018.     dup 3 get               % calculate new ury
  1019.     ch-yoff
  1020.     max
  1021.     3 exch put
  1022.  
  1023. } def
  1024.  
  1025. %%* Define start-hook to replace df-tail and D by our versions.
  1026. %%* Unfortunately, the user can redefine start-hook and thus bypass
  1027. %%* these changes, but I don't see an obvious way around that.
  1028.  
  1029. userdict /start-hook {
  1030.     TeXDict /df-tail /dvips.df-tail load bind put
  1031.     TeXDict /D       /dvips.D       load bind put
  1032. } put
  1033.  
  1034. %%* Introduce a symbolic constant for hyphens.  (Need to make
  1035. %%* allowance for hyphen being in different place?)
  1036.  
  1037. /.hyphen 45 def
  1038.  
  1039. % Write out a string.  If it ends in a letter and a hyphen,
  1040. % don't write the hyphen, and set .show.last to a hyphen;
  1041. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  1042. /.show.write    % <string>
  1043.  {
  1044.     dup length 1 ge
  1045.         { dup dup length 1 sub get      % string last_char
  1046.           dup .hyphen eq                % string last_char hyphen?
  1047.             {                           % string last_char
  1048.                 1 index length 1 gt
  1049.                     { 1 index dup length 2 sub get }
  1050.                     { //.show.last 0 get }
  1051.                 ifelse                  % string last_char prev-char
  1052.                 currentfont /Encoding get exch get  % look up prev-char
  1053.                 //.letter.chars exch known          % is it a letter?
  1054.                     { % Remove the hyphen           % string last_char
  1055.                         exch                        % last_char string
  1056.                         dup length 1 sub            % last_char string len-1
  1057.                         0 exch getinterval          % last_char string-1
  1058.                         exch                        % string-1 last_char
  1059.                     }
  1060.                     { pop 0 }                       % string 0
  1061.                 ifelse
  1062.             }
  1063.           if
  1064.           //.show.last 0 3 -1 roll put              % store last_char
  1065.                                                     % in .show.last
  1066.                                                     % If .show.last ==
  1067.                                                     % hyphen, then
  1068.                                                     % last char of
  1069.                                                     % previous string
  1070.                                                     % was a hyphen
  1071.         }
  1072.     if                                          % string
  1073.     { % begin forall                            % c
  1074.       dup currentfont /Encoding get exch get    % c enc
  1075.       dup //.char.map exch .knownget            % c enc str bool
  1076.         {                                       % c enc str
  1077.           .show.stdout exch writestring pop pop
  1078.         }
  1079.         {                                       % c enc (c not in .char.map)
  1080.           currentfont /Encoding get             %%* BF1: added missing "get"
  1081.           dup OT1Encoding eq                    %%* added OT1Encoding
  1082.           exch                      % c bool enc
  1083.           dup T1Encoding eq                     %%* added T1Encoding
  1084.           exch                      % c bool enc
  1085.           dup StandardEncoding eq   % c bool enc bool
  1086.           exch
  1087.           ISOLatin1Encoding eq
  1088.           or
  1089.           or
  1090.             { % Untranslated character in standard encoding ("normal" case)
  1091.                 pop .show.stdout exch write
  1092.             }
  1093.             { % Character in non-standard encoding, substitute
  1094.                 pop pop .show.stdout (*) writestring
  1095.             }
  1096.           ifelse
  1097.         }
  1098.       ifelse
  1099.     }
  1100.     forall
  1101. } odef
  1102.  
  1103. /.showstring1 {                 % string
  1104.     currentpoint .coord         % string x y
  1105.     3 -1 roll dup .showwidth    % x y string dx dy
  1106.     1 index                     % x y string dx dy dx
  1107.     0 rmoveto                   % x y string dx dy
  1108.     .dcoord pop                 % x y string width
  1109.     SIMPLE
  1110.       {                         % x y string width
  1111.         2 index                 % x y string width y
  1112.         //.show.y .iget         % x y string width y old.y
  1113.         %%* 
  1114.         %%* Replaced test "has y changed" by "has y changed by more
  1115.         %%* than the current font height" so that subscripts and
  1116.         %%* superscripts won't cause line/paragraph breaks
  1117.         %%* 
  1118.          sub abs dup            % x y string width dy dy
  1119.          //.show.height .iget
  1120.          gt
  1121.          {                      % x y string width dy
  1122.  
  1123.             %%* Vertical position has changed by more than the font
  1124.             %%* height, so we now try to figure out whether we've
  1125.             %%* started a new paragraph or merely a new line, using a
  1126.             %%* variety of heuristics.
  1127.  
  1128.             %%* If any of the following is true, we start a new
  1129.             %%* paragraph:
  1130.  
  1131.             %%* (a) the current vertical shift is more than 1.1 times
  1132.             %%*     the previous vertical shift, where 1.1 is an
  1133.             %%*     arbitrarily chosen factor that could probably be
  1134.             %%*     refined.
  1135.  
  1136.             dup                 % x y string width dy dy
  1137.             //.show.dy .iget 1.1 mul
  1138.             gt
  1139.             exch
  1140.  
  1141.             %%* Save the new vertical shift
  1142.  
  1143.             //.show.dy exch .iput
  1144.  
  1145.             %%* (b) The vertical shift is more than 1.3 times the
  1146.             %%*     "size" of the current font.  I've removed this
  1147.             %%*     test since it's not really very useful.
  1148.  
  1149. %%*            //.show.dy .iget
  1150. %%*            //.show.height .iget 1.4 mul
  1151. %%*            gt                          % x y string width bool
  1152. %%*            .show.height .iget 0 gt and % only perform test if font
  1153. %%*                                        % height is nonzero
  1154. %%*            or
  1155.  
  1156.             %%* (c) the first character of the new line is one of the
  1157.             %%*     .break.chars
  1158.  
  1159.             2 index length      % x y string width newpar? len
  1160.             0 gt                % x y string width newpar? len>0?
  1161.               {
  1162.                 2 index 0 get   % x y string width newpar? s
  1163.                 currentfont /Encoding get
  1164.                 exch get        % x y string width newpar? s_enc
  1165.                 //.break.chars exch known { pop true } if
  1166.               }
  1167.             if                  % x y string width newpar?
  1168.  
  1169.             %%* (d) The indentation of the new line is greater than
  1170.             %%*     the indentation of the previous line.
  1171.  
  1172.             4 index
  1173.             //.show.indent .iget
  1174.             gt
  1175.             or
  1176.  
  1177.             % newpar?
  1178.               { (\n\n) }        % Paragraph
  1179.               {                 % Line
  1180.                                 %%* 
  1181.                                 %%* BF2: If last character on a line is
  1182.                                 %%* a hyphen, we omit the hyphen and
  1183.                                 %%* run the lines together.  Of
  1184.                                 %%* course, this will fail if a word
  1185.                                 %%* with an explicit hyphen (e.g.,
  1186.                                 %%* X-ray) is split across two lines.
  1187.                                 %%* Oh, well.  (What should we do
  1188.                                 %%* about a hyphen that ends a
  1189.                                 %%* "paragraph"?  Perhaps that should
  1190.                                 %%* inhibit a paragraph break.)
  1191.                                 %%*
  1192.                 //.show.last 0 get .hyphen eq
  1193.                     { ()  }
  1194.                     { ( ) }
  1195.                 ifelse          % x y string width char
  1196.               }
  1197.             ifelse
  1198.             //print
  1199.  
  1200.             //.show.y 3 index .iput % x y string width
  1201.             //.show.x 4 index .iput % x y string width
  1202.             //.show.indent 4 index .iput
  1203.          }
  1204.          {                      % x y string width dy
  1205.                   % If the word processor split a hyphenated word within
  1206.                   % the same line, put out the hyphen now.
  1207.             pop
  1208.             //.show.last 0 get .hyphen eq { (-) //print } if
  1209.          }
  1210.         ifelse
  1211.                                 %%* 
  1212.                                 %%* If have moved more than 1 point to
  1213.                                 %%* the right, interpret it as a
  1214.                                 %%* space?  This need to be looked at
  1215.                                 %%* more closely.
  1216.                                 %%* 
  1217.         3 index                     % x y string width x
  1218.         //.show.x .iget 10 add gt   % x y string width bool
  1219.             { ( ) //print }
  1220.         if
  1221.                                     % x y string width
  1222.         4 1 roll                    % width x y string
  1223.         .show.write pop             % width x
  1224.         add //.show.x exch .iput    % <empty>
  1225.       }
  1226.       { (S ) //print .show==4 }
  1227.     ifelse
  1228. } odef
  1229.  
  1230. /.showstring
  1231.  { dup () eq { pop } { .showstring1 } ifelse
  1232.  } bind def
  1233.  
  1234. % Redefine all the string display operators.
  1235.  
  1236. /show {
  1237.     .showfont
  1238.     .showcolor
  1239.     .showstring
  1240. } codef
  1241.  
  1242. % We define all the other operators in terms of .show1.
  1243.  
  1244. /.show1.string ( ) def
  1245. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  1246. /ashow
  1247.  { .showfont .showcolor
  1248.    { .show1 2 copy rmoveto } forall
  1249.    pop pop
  1250.  } codef
  1251. /awidthshow
  1252.  { .showfont .showcolor
  1253.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  1254.       2 copy rmoveto
  1255.     }
  1256.    forall
  1257.    pop pop pop pop pop
  1258.  } codef
  1259. /widthshow
  1260.  { .showfont .showcolor
  1261.    //.show1.string 0 4 -1 roll put
  1262.     { //.show1.string search not { exit } if
  1263.       .showstring .showstring
  1264.       2 index 2 index rmoveto
  1265.     } loop
  1266.    .showstring pop pop
  1267.  } codef
  1268. /kshow
  1269.  { .showfont .showcolor
  1270.     %**************** Should construct a closure, in case the procedure
  1271.     %**************** affects the o-stack.
  1272.     { .show1 dup exec } forall pop
  1273.  } codef
  1274.  
  1275. % We don't really do the right thing with the Level 2 show operators,
  1276. % but we do something semi-reasonable.
  1277. /xshow { pop show } codef
  1278. /yshow { pop show } codef
  1279. /xyshow { pop show } codef
  1280. /glyphshow
  1281.  { currentfont /Encoding .knownget not { {} } if
  1282.    0 1 2 index length 1 sub
  1283.     {        % Stack: glyph encoding index
  1284.       2 copy get 3 index eq { exch pop exch pop null exit } if
  1285.     }
  1286.    for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  1287.  } codef
  1288.  
  1289. end
  1290.  
  1291. % Bind the operators we just defined, and all the others if we didn't
  1292. % do it before.  Also reenable 'bind' for future files.
  1293.  
  1294. .bindoperators
  1295. NOBIND currentdict systemdict ne and
  1296.  { systemdict begin .bindoperators end }
  1297. if
  1298. NOBIND
  1299.  { /bind /.bind load def }
  1300. if
  1301.  
  1302. % Make systemdict read-only if it wasn't already.
  1303.  
  1304. systemdict wcheck { systemdict readonly pop } if
  1305.  
  1306. % Restore the current local/global VM mode.
  1307.  
  1308. exec
  1309.  
  1310.  
  1311.